/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_8 / issue_10 / bc / BasProg

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f 40 25 20 3d | 20 22 46 33 2e 33 22 0d |....@% =| "F3.3".|
|00000010| 00 14 04 0d 00 1e 0e f2 | 63 6f 6e 73 74 61 6e 74 |........|constant|
|00000020| 73 0d 00 28 04 0d 00 32 | 05 f5 0d 00 3c 04 0d 00 |s..(...2|....<...|
|00000030| 46 1f e8 20 22 50 72 65 | 73 73 75 72 65 20 69 6e |F.. "Pre|ssure in|
|00000040| 20 6d 42 61 72 20 3f 20 | 22 20 50 6d 62 0d 00 50 | mBar ? |" Pmb..P|
|00000050| 04 0d 00 5a 0f 50 20 3d | 20 50 6d 62 2f 31 30 30 |...Z.P =| Pmb/100|
|00000060| 0d 00 64 04 0d 00 6e 1f | e7 20 50 3e 3d 50 4c 20 |..d...n.|. P>=PL |
|00000070| 80 20 50 3c 50 4d 20 8c | 20 54 20 3d 20 a4 54 4c |. P<PM .| T = .TL|
|00000080| 28 50 29 0d 00 78 1f e7 | 20 50 3e 3d 50 4d 20 80 |(P)..x..| P>=PM .|
|00000090| 20 50 3c 50 55 20 8c 20 | 54 20 3d 20 a4 54 55 28 | P<PU . |T = .TU(|
|000000a0| 50 29 0d 00 82 39 e7 20 | 50 3e 3d 50 55 20 84 20 |P)...9. |P>=PU . |
|000000b0| 20 50 3c 50 4c 20 8c 20 | f1 22 20 53 69 6c 6c 79 | P<PL . |." Silly|
|000000c0| 20 70 72 65 73 73 75 72 | 65 20 2d 20 74 72 79 20 | pressur|e - try |
|000000d0| 61 67 61 69 6e 20 22 3a | fd 20 a3 0d 00 8c 04 0d |again ":|. ......|
|000000e0| 00 96 33 f1 20 22 20 20 | 20 20 20 20 20 20 20 20 |..3. "  |        |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 54 65 |        |      Te|
|00000100| 6d 70 65 72 61 74 75 72 | 65 20 22 3b 54 3b 22 20 |mperatur|e ";T;" |
|00000110| 4b 22 0d 00 a0 04 0d 00 | aa 07 fd 20 a3 0d 00 b4 |K"......|... ....|
|00000120| 05 e0 0d 00 be 04 0d 00 | c8 36 f4 20 2d 2d 2d 2d |........|.6. ----|
|00000130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 00 d2 04 |--------|----....|
|00000160| 0d 00 dc 0b dd a4 54 4c | 28 50 29 0d 00 e6 1c ea |......TL|(P).....|
|00000170| 20 70 55 2c 20 70 4c 2c | 20 70 4d 2c 20 74 55 2c | pU, pL,| pM, tU,|
|00000180| 20 74 4c 2c 20 74 4d 0d | 00 f0 14 74 55 20 3d 20 | tL, tM.|...tU = |
|00000190| 54 4d 3a 20 74 4c 20 3d | 20 54 4c 0d 00 fa 04 0d |TM: tL =| TL.....|
|000001a0| 01 04 15 20 20 20 70 55 | 20 3d 20 a4 74 37 36 6c |...   pU| = .t76l|
|000001b0| 28 74 55 29 0d 01 0e 15 | 20 20 20 70 4c 20 3d 20 |(tU)....|   pL = |
|000001c0| a4 74 37 36 6c 28 74 4c | 29 0d 01 18 04 0d 01 22 |.t76l(tL|)......"|
|000001d0| 05 f5 0d 01 2c 04 0d 01 | 36 15 20 20 20 74 4d 20 |....,...|6.   tM |
|000001e0| 3d 20 28 74 55 2b 74 4c | 29 2f 32 0d 01 40 15 20 |= (tU+tL|)/2..@. |
|000001f0| 20 20 70 4d 20 3d 20 a4 | 74 37 36 6c 28 74 4d 29 |  pM = .|t76l(tM)|
|00000200| 0d 01 4a 04 0d 01 54 0f | 20 20 20 e7 20 50 3c 70 |..J...T.|   . P<p|
|00000210| 4d 20 8c 0d 01 5e 1a 20 | 20 20 20 20 20 74 55 20 |M ...^. |     tU |
|00000220| 3d 20 74 4d 3a 20 70 55 | 20 3d 20 70 4d 0d 01 68 |= tM: pU| = pM..h|
|00000230| 08 20 20 20 cc 0d 01 72 | 1a 20 20 20 20 20 20 74 |.   ...r|.      t|
|00000240| 4c 20 3d 20 74 4d 3a 20 | 70 4c 20 3d 20 70 4d 0d |L = tM: |pL = pM.|
|00000250| 01 7c 08 20 20 20 cd 0d | 01 86 04 0d 01 90 11 fd |.|.   ..|........|
|00000260| 20 74 55 2d 74 4c 20 3c | 20 45 50 53 0d 01 9a 0e | tU-tL <| EPS....|
|00000270| 3d 28 74 55 2b 74 4c 29 | 2f 32 0d 01 a4 04 0d 01 |=(tU+tL)|/2......|
|00000280| ae 0b dd a4 54 55 28 50 | 29 0d 01 b8 1c ea 20 70 |....TU(P|)..... p|
|00000290| 55 2c 20 70 4c 2c 20 70 | 4d 2c 20 74 55 2c 20 74 |U, pL, p|M, tU, t|
|000002a0| 4c 2c 20 74 4d 0d 01 c2 | 14 74 55 20 3d 20 54 55 |L, tM...|.tU = TU|
|000002b0| 3a 20 74 4c 20 3d 20 54 | 4d 0d 01 cc 04 0d 01 d6 |: tL = T|M.......|
|000002c0| 0e 20 20 20 70 55 20 3d | 20 50 55 0d 01 e0 15 20 |.   pU =| PU.... |
|000002d0| 20 20 70 4c 20 3d 20 a4 | 74 37 36 75 28 74 4c 29 |  pL = .|t76u(tL)|
|000002e0| 0d 01 ea 04 0d 01 f4 05 | f5 0d 01 fe 04 0d 02 08 |........|........|
|000002f0| 15 20 20 20 74 4d 20 3d | 20 28 74 55 2b 74 4c 29 |.   tM =| (tU+tL)|
|00000300| 2f 32 0d 02 12 15 20 20 | 20 70 4d 20 3d 20 a4 74 |/2....  | pM = .t|
|00000310| 37 36 75 28 74 4d 29 0d | 02 1c 04 0d 02 26 0f 20 |76u(tM).|.....&. |
|00000320| 20 20 e7 20 50 3c 70 4d | 20 8c 0d 02 30 1a 20 20 |  . P<pM| ...0.  |
|00000330| 20 20 20 20 74 55 20 3d | 20 74 4d 3a 20 70 55 20 |    tU =| tM: pU |
|00000340| 3d 20 70 4d 0d 02 3a 08 | 20 20 20 cc 0d 02 44 1a |= pM..:.|   ...D.|
|00000350| 20 20 20 20 20 20 74 4c | 20 3d 20 74 4d 3a 20 70 |      tL| = tM: p|
|00000360| 4c 20 3d 20 70 4d 0d 02 | 4e 08 20 20 20 cd 0d 02 |L = pM..|N.   ...|
|00000370| 58 04 0d 02 62 11 fd 20 | 74 55 2d 74 4c 20 3c 20 |X...b.. |tU-tL < |
|00000380| 45 50 53 0d 02 6c 0e 3d | 28 74 55 2b 74 4c 29 2f |EPS..l.=|(tU+tL)/|
|00000390| 32 0d 02 76 04 0d 02 80 | 04 0d 02 8a 04 0d 02 94 |2..v....|........|
|000003a0| 04 0d 02 9e 0f dd f2 63 | 6f 6e 73 74 61 6e 74 73 |.......c|onstants|
|000003b0| 0d 02 a8 04 0d 02 b2 12 | 43 4d 20 3d 20 2d 33 30 |........|CM = -30|
|000003c0| 2e 39 33 32 38 35 0d 02 | bc 12 43 30 20 3d 20 33 |.93285..|..C0 = 3|
|000003d0| 39 32 2e 34 37 33 36 31 | 0d 02 c6 14 43 31 20 3d |92.47361|....C1 =|
|000003e0| 20 2d 32 33 32 38 2e 30 | 34 35 38 37 0d 02 d0 13 | -2328.0|4587....|
|000003f0| 43 32 20 3d 20 38 31 31 | 31 2e 33 30 33 34 37 0d |C2 = 811|1.30347.|
|00000400| 02 da 15 43 33 20 3d 20 | 2d 31 37 38 30 39 2e 38 |...C3 = |-17809.8|
|00000410| 30 39 30 31 0d 02 e4 14 | 43 34 20 3d 20 32 35 37 |0901....|C4 = 257|
|00000420| 36 36 2e 35 32 37 34 37 | 0d 02 ee 11 43 35 20 3d |66.52747|....C5 =|
|00000430| 20 2d 32 34 36 30 31 2e | 34 0d 02 f8 14 43 36 20 | -24601.|4....C6 |
|00000440| 3d 20 31 34 39 34 34 2e | 36 35 31 34 32 0d 03 02 |= 14944.|65142...|
|00000450| 14 43 37 20 3d 20 2d 35 | 32 34 30 2e 33 36 35 31 |.C7 = -5|240.3651|
|00000460| 38 0d 03 0c 12 43 38 20 | 3d 20 38 30 37 2e 39 33 |8....C8 |= 807.93|
|00000470| 31 36 38 0d 03 16 11 43 | 39 20 3d 20 31 34 2e 35 |168....C|9 = 14.5|
|00000480| 33 33 33 33 0d 03 20 04 | 0d 03 2a 11 42 4d 20 3d |3333.. .|..*.BM =|
|00000490| 20 2d 37 2e 34 31 38 31 | 36 0d 03 34 10 42 30 20 | -7.4181|6..4.B0 |
|000004a0| 3d 20 35 2e 34 32 31 32 | 38 0d 03 3e 11 42 31 20 |= 5.4212|8..>.B1 |
|000004b0| 3d 20 39 2e 39 30 33 32 | 30 33 0d 03 48 12 42 32 |= 9.9032|03..H.B2|
|000004c0| 20 3d 20 2d 39 2e 36 31 | 37 30 39 35 0d 03 52 11 | = -9.61|7095..R.|
|000004d0| 42 33 20 3d 20 36 2e 38 | 30 34 36 30 32 0d 03 5c |B3 = 6.8|04602..\|
|000004e0| 13 42 34 20 3d 20 2d 33 | 2e 30 31 35 34 36 30 36 |.B4 = -3|.0154606|
|000004f0| 0d 03 66 12 42 35 20 3d | 20 30 2e 37 34 36 31 33 |..f.B5 =| 0.74613|
|00000500| 35 37 0d 03 70 13 42 36 | 20 3d 20 2d 30 2e 30 37 |57..p.B6| = -0.07|
|00000510| 39 31 37 39 31 0d 03 7a | 04 0d 03 84 0f 54 55 20 |91791..z|.....TU |
|00000520| 3d 20 35 2e 31 39 35 33 | 0d 03 8e 0f 54 4d 20 3d |= 5.1953|....TM =|
|00000530| 20 32 2e 31 37 36 38 0d | 03 98 0c 54 4c 20 3d 20 | 2.1768.|...TL = |
|00000540| 30 2e 35 0d 03 a2 04 0d | 03 ac 0f 45 50 53 20 3d |0.5.....|...EPS =|
|00000550| 20 30 2e 30 30 31 0d 03 | b6 04 0d 03 c0 13 50 55 | 0.001..|......PU|
|00000560| 20 3d 20 32 32 37 34 34 | 37 2e 34 32 31 0d 03 ca | = 22744|7.421...|
|00000570| 13 50 4d 20 3d 20 35 30 | 34 31 2e 38 30 36 34 33 |.PM = 50|41.80643|
|00000580| 0d 03 d4 13 50 4c 20 3d | 20 30 2e 30 30 32 30 36 |....PL =| 0.00206|
|00000590| 33 31 35 0d 03 de 04 0d | 03 e8 05 e1 0d 03 f2 04 |315.....|........|
|000005a0| 0d 03 fc 04 0d 04 06 04 | 0d 04 10 0d dd a4 74 37 |........|......t7|
|000005b0| 36 6c 28 54 29 0d 04 1a | 38 3d 20 a1 28 42 4d 2f |6l(T)...|8= .(BM/|
|000005c0| 54 2b 42 30 2b 42 31 2a | 54 2b 42 32 2a 54 5e 32 |T+B0+B1*|T+B2*T^2|
|000005d0| 2b 42 33 2a 54 5e 33 2b | 42 34 2a 54 5e 34 2b 42 |+B3*T^3+|B4*T^4+B|
|000005e0| 35 2a 54 5e 35 2b 42 36 | 2a 54 5e 36 29 0d 04 24 |5*T^5+B6|*T^6)..$|
|000005f0| 04 0d 04 2e 04 0d 04 38 | 0d dd a4 74 37 36 75 28 |.......8|...t76u(|
|00000600| 54 29 0d 04 42 07 ea 20 | 58 0d 04 4c 0c 58 20 3d |T)..B.. |X..L.X =|
|00000610| 20 54 2f 54 55 0d 04 56 | 53 3d 20 a1 28 43 4d 2f | T/TU..V|S= .(CM/|
|00000620| 58 2b 43 30 2b 43 31 2a | 58 2b 43 32 2a 58 5e 32 |X+C0+C1*|X+C2*X^2|
|00000630| 2b 43 33 2a 58 5e 33 2b | 43 34 2a 58 5e 34 2b 43 |+C3*X^3+|C4*X^4+C|
|00000640| 35 2a 58 5e 35 2b 43 36 | 2a 58 5e 36 2b 43 37 2a |5*X^5+C6|*X^6+C7*|
|00000650| 58 5e 37 2b 43 38 2a 58 | 5e 38 2b 43 39 2a 28 31 |X^7+C8*X|^8+C9*(1|
|00000660| 2d 58 29 5e 31 2e 39 29 | 0d ff                   |-X)^1.9)|..      |
+--------+-------------------------+-------------------------+--------+--------+